perm filename FOO.LSP[F77,JMC] blob sn#322582 filedate 1977-12-15 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(defun issublist (u v) (or (null u) (and (not (null v)) (or
C00003 ENDMK
CāŠ—;
(defun issublist (u v) (or (null u) (and (not (null v)) (or
(and (equal (car u) (car v)) (issublist (cdr u) (cdr v)))
(issublist u (cdr v))))))

(defun rev (x) (cond ((atom x) x) (t (cons (rev (cdr x)) (rev (car x))))))